﻿Imports System.Data
Imports CondorTravel.BC
Imports CondorTravel.BE

Public Class Login1
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnLogin_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnLogin.Click

        Dim strUsuario As String
        Dim strPassword As String
        Dim strRol As String = String.Empty

        Dim bExito As Boolean = False
        Dim sMensaje As String = String.Empty

        Dim objUsuarioBC As UsuarioBC
        Dim objUsuarioBE As UsuariosBE
        
        strUsuario = txtUsuario.Text
        strPassword = txtPassword.Text

        objUsuarioBE = New UsuariosBE
        objUsuarioBE.CodUsuario = strUsuario
        objUsuarioBE.Password = strPassword

        objUsuarioBC = New UsuarioBC


        If objUsuarioBC.ValidarLogin(objUsuarioBE, bExito, sMensaje, strRol) Then
            objUsuarioBE.Rol = strRol
            Session("usuario") = objUsuarioBE
            Response.Redirect("~/pages/SolicitudServicio/SolicitudServicios2.aspx", True)
        Else
            lblMensaje.Text = sMensaje
        End If

    End Sub
End Class